www.gusucode.com > 酷维企业网站CMS管理系统 v2.1.0 > 酷维企业网站CMS管理系统 v2.1.0\code\list.asp

    <%
'程序名称:酷维企业网站程序CMS
'运行环境:ASP+ACCESS
'程序大小:4.60MB
'软件类型:ASP源码
'联系方式:QQ:921072227
'程序演示:企业程序
'官方网站:http://cms.coczz.com
%>
<% tp=request("tp") %>

<!--网站顶部开始 mainboy -->
<!--#include file="top.asp" -->
<!--网站顶部结束 mainboy -->
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="32" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="left_i.asp" -->
	<!--网站顶部开始 --><!--网站顶部结束 -->	</td>
    <td align="center" valign="top"><TABLE WIDTH=541 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
      <tr>
        <td width="543" height="32" background="images/lyzx_01.jpg">&nbsp; <b>您现在的位置：</b><a href="index.asp">首页</a> &gt;&gt; <a href="#">
        <% set rs=conn.execute("select * from nlei where id="&tp)
response.Write(rs("nlei")) %>
        </a><a href="list.asp?tp=<%= mytype %>"></a> &gt;&gt; 列表</td>
      </tr>
        
      </TABLE>
      <table width="98%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="565" align="center" valign="top"><table border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="6"></td>
            </tr>
          </table>
          <table width="541" border="0" cellpadding="0" cellspacing="0" background="images/lyzx_01.jpg">
            <tr>
              <td width="14" height="28" align="center" style="font-size:14px; color:#CC6600; font-weight:bold;">&nbsp;</td>
              <td width="119" style="font-size:14px; font-weight:bold;"><% set rs=conn.execute("select * from nlei where id="&tp)
response.Write(rs("nlei")) %></td>
              <td width="408">&nbsp;</td>
            </tr>
          </table>
            <table width="541" border="0" align="center" cellpadding="0" cellspacing="0" style="line-height:24px;">
              <tr>
                <td width="543" height="624" valign="top" style="border-left:1px solid #C5D4DF; border-right:1px solid #C5D4DF; border-bottom:1px solid #C5D4DF;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <%
 		  set rs=server.createobject("adodb.recordset") 
		  sql="select * from news where mytype="&tp&"  order  by id desc"
		  rs.open sql,conn,1
		  
		  rs.pagesize=25'每页显示多少条
          pagecount=rs.pagecount '总页数
		  
		     if rs.bof and rs.eof then
              response.write ""
              else
					 
              page=clng(request.querystring("page"))
              if page<1 then page=1
              if page>rs.pagecount then page=rs.pagecount
              rs.absolutepage=page  '跳到多少页
  
              for i=1 to rs.pagesize
          %>
                          <tr>
                            <td width="84%" height="32" align="left" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>">&nbsp;<font color="#2D5D7D">·</font>&nbsp;<a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-size:14px;"><%=left(rs("bt"),34)%></span></a></td>
                            <td width="16%" align="center" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>"><a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-family:Arial, Helvetica, sans-serif; font-size:10px; color:#999999;">(<%= rs("riqi") %>)</span></a></td>
                          </tr>
                          <% 
         rs.movenext
         if rs.eof then exit for 
         next
         end if 
         %>
                        </table>
                          <table width="95%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="22" align="center">&nbsp;&nbsp;&nbsp;&nbsp;
                                						
								<span style="color:#666666">[共<%=rs.pagecount%>页&nbsp;当前第<%=page%>页&nbsp;<%
	if page<=1 then
	   Response.Write("首页&nbsp;&nbsp;")
       Response.Write ("上一页")
    else
	  Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>&nbsp;&nbsp;")
	  Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

    end if
	response.write "&nbsp;&nbsp;"
    if page>=Rs.PageCount then
        Response.Write ("")
		Response.Write("&nbsp;&nbsp;")
    else
  		Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
  		Response.Write("&nbsp;&nbsp;<a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
    end if

%>]</span></td>
                            </tr>
                        </table>
                        <p align="center">酷维企业CMS网站管理系统 - 企业建站首选服务商！<A href="http://cms.coczz.com" target="_blank">http://cms.coczz.com</A> 销售客服QQ:921072227</p></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <!--格线结束 --></td>
    <td valign="top"><!--网站右部开始 -->
	<!--#include file="right_i.asp" -->
	<!--网站右部结束 --></td>
  </tr>
</table>
      <table border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="6"></td>
        </tr>
      </table>
      <!--友情链接开始 --><!--友情链接结束 -->
<!--网站尾部开始 -->
<!--#include file="foot.asp" -->
<!--网站尾部结束 -->
</body>
</html>